home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / y_a_mine.bas < prev   
BASIC Source File  |  1991-10-18  |  14KB  |  344 lines
  1. 10 '
  2. 20 '　ＹＯＵ　ＡＲＥ　ＭＩＮＥ　／　by Kazuya Shimada
  3. 30 '
  4. 40 PLAY OFF:BGM 1:LOAD@"Q:\FJ\FM\FM_1.FMB":LOAD@"PDRUMS.PMB"
  5. 50 DIM T%(4,9),V%(23),D%(47):RESTORE 100
  6. 60 '----------------------------------------------------------------
  7. 70 TNO%=1 : TNAME$="MAIN 1"
  8. 80 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  9. 90 '    AF  OM  WF  SY   SP   PMD AMD PMS
  10. 100 DATA  6, 15,  0,  0,     0,  0,  0,  0,  0,  0
  11. 110 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  12. 120 DATA 31,  3,  3,  8,  2, 31,  1,  3,  3,  0
  13. 130 DATA 31,  0,  0,  8,  0, 10,  1,  3,  0,  0
  14. 140 DATA 31,  0,  0,  8,  0, 10,  1,  2,  0,  0
  15. 150 DATA 31,  0,  0,  8,  0, 10,  1,  1,  0,  0
  16. 160 '----------------------------------------------------------------
  17. 170 TNO%=2 : TNAME$="BASS"
  18. 180 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  19. 190 '    AF  OM  WF  SY   SP   PMD AMD PMS
  20. 200 DATA 16, 15,  0,  0,     0,  0,  0,  0,  0,  0
  21. 210 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  22. 220 DATA 31, 18,  0,  6,  2, 48,  0,  8,  0,  0
  23. 230 DATA 31, 14,  4,  6,  2, 25,  0,  0,  7,  0 
  24. 240 DATA 31, 10,  4,  6,  2, 19,  1,  0,  3,  0
  25. 250 DATA 31,  8,  3,  6,  2,  5,  1,  0,  0,  0
  26. 260 '----------------------------------------------------------------
  27. 270 '
  28. 280 TNO%=3 : TNAME$="SUB"
  29. 290 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  30. 300 '    AF  OM  WF  SY   SP   PMD AMD PMS
  31. 310 DATA 61, 15,  0,  0,     0,  0,  0,  0,  0,  0
  32. 320 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  33. 330 DATA 31,  0,  0,  7,  0, 28,  1,  4,  0,  0
  34. 340 DATA 31,  0,  0,  7,  0, 17,  1,  2,  0,  0 
  35. 350 DATA 31,  0,  0,  7,  0, 17,  1,  2,  0,  0
  36. 360 DATA 31,  0,  0,  7,  0, 17,  1,  2,  0,  0
  37. 370 '----------------------------------------------------------------
  38. 380 TNO%=4 : TNAME$="MAIN 2"
  39. 390 FOR Y%=0 TO 4 : FOR X%=0 TO 9:READ T%(Y%,X%):NEXT:NEXT:GOSUB *TNCONV
  40. 400 '    AF  OM  WF  SY   SP   PMD AMD PMS
  41. 410 DATA 60, 15,  0,  0,     0,  0,  0,  0,  0,  0
  42. 420 '    AR  DR  SR  RR  SL  TL  KS  ML  DT AMS
  43. 430 DATA 24, 15,  0,  8,  2, 21,  0,  1,  1,  0
  44. 440 DATA 24, 15,  0,  8,  2, 21,  0,  0,  0,  0 
  45. 450 DATA 31,  3,  3,  9,  0, 10,  0,  1,  1,  0
  46. 460 DATA 31,  4,  5,  9,  0, 10,  0,  0,  0,  0
  47. 470 '----------------------------------------------------------------
  48. 480 GOTO 620
  49. 490 *TNCONV
  50. 500 FOR I%=0 TO 3:J%=I%+1:D%(8+I%)=(T%(J%,8)AND 7)*16+(T%(J%,7)AND 15)
  51. 510 D%(12+I%)=(T%(J%,5) AND 127)
  52. 520 D%(16+I%)=(T%(J%,6) AND   3)*64+(T%(J%,0) AND 31)
  53. 530 D%(20+I%)= T%(J%,1) AND  31:D%(24+I%)=T%(J%,2) AND 31
  54. 540 D%(28+I%)=(T%(J%,4) AND  15)*16+(T%(J%,3) AND 15):NEXT
  55. 550 D%(32)=T%(0,0):D%(33)=&HC0+((T%(0,7) AND 3)*16)+((T%(0,8) AND 7))
  56. 560 A$=LEFT$(TNAME$+"        ",8)
  57. 570 FOR I%=0 TO 7:D%(I%)=ASC(MID$(A$,I%+1,1)):NEXT
  58. 580 FOR I%=0 TO 47 STEP 2:L&=D%(I%+1)*256+D%(I%)
  59. 590 IF L&<&H8000 THEN V%(I% \ 2)=CINT(L&) ELSE V%(I% \ 2)=CINT(L&-&H10000)
  60. 600 NEXT:VOICE TNO%,V%:RETURN
  61. 610 '----------------------------------------------------------------
  62. 620 FOR I=0 TO 13:PART I,I:NEXT
  63. 630 T$="T175Q8L8%CU0"
  64. 640 PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  65. 650 A0$=""
  66. 660 B0$=""
  67. 670 C0$=""
  68. 680 D0$=""
  69. 690 E0$=""
  70. 700 F0$=""
  71. 710 G0$="@3V15L4O4C8C8C4"
  72. 720 H0$="@2V15L4O4R4E4V13"
  73. 730 I0$="@4V5L8O5"
  74. 740 A1$="@1%CV5L1O4E- D"
  75. 750 B1$="@1U40%CV5L1O4E- D"
  76. 760 C1$="@1%RV5L1O3G B-"
  77. 770 D1$="@1%LV5L1O3B- F"
  78. 780 E1$="@1U80%CV3L16O4(GE-B-E->E-<E-B-E-) (FDB-D>D<DB-D)"
  79. 790 E1B$="O5(GE-B-E->E-<E-B-E-) (FDB-D>D<DB-D)"
  80. 800 F1$="@2V8L8O3E-E-E-E-E-E-E-E- <B-B-B-B-B-B-B-B-"
  81. 810 G1$="L4(CRC8C8R)"
  82. 820 H1$="L4(RERE)"
  83. 830 I1$="L8(!15GGGG!15G!15GGG)"
  84. 840 M1$="@14V6L4O4R%LE-RR R%RDRR"
  85. 850 A2$="O4D- C2<B-8A-4."
  86. 860 C2$="O3F A-"
  87. 870 D2$="O3A- E-"
  88. 880 E2$="O4(FD-A-D->D-<D-A-D-) (E-CA-C>C<CA-C)"
  89. 890 E2B$="O5(FD-A-D->D-<D-A-D-) (E-CA-C>C<CA-C)"
  90. 900 F2$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  91. 910 M2$="O4R%CD-RR R8%CC8%LC8%RC8R2"
  92. 920 A3$="O4D-"
  93. 930 C3$="O3F"
  94. 940 D3$="O3A-"
  95. 950 E3$="O5(FD-A-D->D-<D-A-D-)"
  96. 960 F3$="O3D-D-D-D-D-D-D-D-"
  97. 970 G3$="CRC8C8R CR8C8RR"
  98. 980 H3$="RERE R2L8EEEE"
  99. 990 I3$="!15GGGG!15GGGG R4!15G4L8GGGG"
  100. 1000 M3$="O4R%CD-RR R1"
  101. 1010 '
  102. 1020 A4$="@4V8L8O5R4A-B->D-C4. D-C4<E-4E-A-G-&"
  103. 1030 B4$="@4U80V6L8O5R4A-&A-B->D-C4. D-C4<E-4E-A-"
  104. 1040 C4$="@1U40%CV3L1O3A- >C"
  105. 1050 D4$="@1U40%CV3L1O4C E-"
  106. 1060 E4$="@1U40%CV3L1O4E- <G-"
  107. 1070 F4$="O2A-A-A-A-A-A-A-A- G-G-G-G-G-G-G-G-"
  108. 1080 G4$="CRC8C8R CRCR"
  109. 1090 H4$="RERE RER8E8E8E8"
  110. 1100 J4$="@1U30%LV1L1O3A- >C"
  111. 1110 K4$="@1U30%CV1L1O4C E-"
  112. 1120 L4$="@1U30%RV1L1O4E- <G-"
  113. 1130 M4$="@6U0%CV10L1O4C R"
  114. 1140 N4$="@1U98%CV6L4O4E-2C2 >C2<E-2"
  115. 1150 A5$="O5G-G-G-A-G-F4E-& E-2.R4"
  116. 1160 B5$="O5G-&G-G-G-A-G-F4E-& E-2.R"
  117. 1170 C5$="O3G- A-"
  118. 1180 D5$="O3A- >C"
  119. 1190 E5$="O4D- <E-"
  120. 1200 F5$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  121. 1210 J5$="O3G- A-"
  122. 1220 K5$="O3A- >C"
  123. 1230 L5$="O4D- E-"
  124. 1240 N5$="O4G-2..E-8& E-1"
  125. 1250 A6$="O5R4FE-FG4. A-GA-B-4A-GA-"
  126. 1260 B6$="O5R4F&FE-FG4. A-GA-B-4A-G"
  127. 1270 C6$="O4D- <G"
  128. 1280 D6$="O3F B-"
  129. 1290 E6$="O3A- >D"
  130. 1300 F6$="O3D-D-D-D-D-D-D-D- DDDDDDDD"
  131. 1310 J6$="O4D- <G"
  132. 1320 K6$="O3F B-"
  133. 1330 L6$="O3A- >D"
  134. 1340 N6$="O4F2A-2 G2B-2"
  135. 1350 A7$="O6C4<B-B-4.>CC E-D-C<B-4&B-R4"
  136. 1360 B7$="O6C&C4<B-B-4.>CC E-D-C<B-4&B-R"
  137. 1370 C7$="O4C E-"
  138. 1380 D7$="O4E- <G"
  139. 1390 E7$="O3G >D-"
  140. 1400 F7$="O3E-E-E-E-E-E-E-E- E-E-B-E-E-B-E-B-"
  141. 1410 J7$="O4C E-"
  142. 1420 K7$="O4E- <G"
  143. 1430 L7$="O3G B-"
  144. 1440 M7$="@9U0%CV13L8R1 O4R2RE-E-R"
  145. 1450 M7B$="@9U0%CV13L8R1 O4R2RE-E-E-"
  146. 1460 N7$="O5C1 L8E-D-C<B-&B-2L4"
  147. 1470 A8$="O6C4<B-B-4.>CC E-D-C<B-&B-4.R"
  148. 1480 B8$="O6C&C4<B-B-4.>CC E-D-C<B-&B-4."
  149. 1490 M8$="@9U0%CV13L8R1 O4R2E-E-E-E-"
  150. 1500 '
  151. 1510 A9$="O5R4FFG4FF A-4B-A-4E-E-4"
  152. 1520 B9$="O5R4F&FFG4FF A-4B-A-4E-E-"
  153. 1530 C9$="O4D- E-"
  154. 1540 D9$="O4F <A-"
  155. 1550 E9$="O3A- B-"
  156. 1560 F9$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  157. 1570 J9$="O4D- E-"
  158. 1580 K9$="O4F <A-"
  159. 1590 L9$="O3A- B-"
  160. 1600 A10$="O5RGGGB-4G4 >C4D-C&C4R4"
  161. 1610 B10$="O5RG&GGGB-4G4 >C4D-C&C4R"
  162. 1620 C10$="O4E- <A-"
  163. 1630 D10$="O3G >C"
  164. 1640 E10$="O3B- >E-"
  165. 1650 F10$="O3E-E-E-E-E-E-E-E- <A-A-A-A-A-A-A-A-"
  166. 1660 J10$="O4E- <A-"
  167. 1670 K10$="O3B- >C"
  168. 1680 L10$="O4D- E-"
  169. 1690 A11$="O5R4FFG4FG A-4GA-4RB-4"
  170. 1700 B11$="O5R4F&FFG4FG A-4GA-4RB-"
  171. 1710 C11$="O4D- E-"
  172. 1720 D11$="O4F <A-"
  173. 1730 E11$="O3A- B-"
  174. 1740 F11$="O3D-D-D-D-D-D-D-D- E-E-E-E-E-E-E-E-"
  175. 1750 J11$="O4D- E-"
  176. 1760 K11$="O4F <A-"
  177. 1770 L11$="O3A- B-"
  178. 1780 A12$="O6C2.<E-4 >C4C4CCC4"
  179. 1790 B12$="O6C&C2.<E-4 >C4C4CCC"
  180. 1800 C12$="O3A- A-"
  181. 1810 D12$="O4C C"
  182. 1820 E12$="O4E- E-"
  183. 1830 F12$="O3A-A-A-A-A-A-A-A- A-A-A-A-A-A-A-A-"
  184. 1840 J12$="O3A- A-"
  185. 1850 K12$="O4C C"
  186. 1860 L12$="O4E- E-"
  187. 1870 A13$="O5B-1& B-2.R4"
  188. 1880 B13$="O5B-&B-1& B-2.R"
  189. 1890 C13$="O4E-& E-"
  190. 1900 D13$="O3G& G"
  191. 1910 E13$="O3B-& B-"
  192. 1920 F13$="O3E-E-E-E-E-E-E-E- E-B-E-E-E-B-E-B-"
  193. 1930 J13$="O4E-& E-"
  194. 1940 K13$="O3B-& B-"
  195. 1950 L13$="O4D-& D-"
  196. 1960 '
  197. 1970 A14$="O6C4C4D-4E-4 E-4.D-4.C4"
  198. 1980 B14$="O6C&C4C4D-4E-4 E-4.D-4.C"
  199. 1990 C14$="Q5V2L8O4A-A-A-A-A-A-A-A- CCCCCCCC"
  200. 2000 D14$="Q5V2L8O4CCCCCCCC E-E-E-E-E-E-E-E-"
  201. 2010 E14$="Q5V2L8O4E-E-E-E-E-E-E-E- GGGGGGGG"
  202. 2020 F14$="O3A-A-A-A-A-A-A-A- GGGGGGGG"
  203. 2030 J14$="V2O3A- >C"
  204. 2040 K14$="V2O4C E-"
  205. 2050 L14$="V2O4E- <G"
  206. 2060 A15$="O5B-4B-4>C4D-4 D-4.C16<B-16>C4<B-4"
  207. 2070 B15$="O5B-&B-4B-4>C4D-4 D-4.C16<B-16>C4<B-"
  208. 2080 C15$="O4FFFFFFFF A-A-A-A-A-A-A-A-"
  209. 2090 D15$="O3B-B-B-B-B-B-B-B- >D-D-D-D-CCCC"
  210. 2100 E15$="O4CCCCCCCC E-E-E-E-E-E-E-E-"
  211. 2110 F15$="O3FFFFFFFF E-E-E-E-E-E-E-E-"
  212. 2120 J15$="O4F <A-"
  213. 2130 K15$="O3B- >D-2C2"
  214. 2140 L15$="O4C E-"
  215. 2150 A16$="O5A-2>A-4A-4 G2C2"
  216. 2160 B16$="O5A-&A-2>A-4A-4 G2C4."
  217. 2170 C16$="O4D-D-D-D-D-D-D-D- CCCCCCCC"
  218. 2180 D16$="O4FFFFFFFF E-E-E-E-E-E-E-E-"
  219. 2190 E16$="O4A-A-A-A-A-A-A-A- GGGGGGGG"
  220. 2200 F16$="O3D-D-D-D-D-D-D-D- CCCCCCCC"
  221. 2210 J16$="O4D- C"
  222. 2220 K16$="O4F E-"
  223. 2230 L16$="O3A- G"
  224. 2240 A17$="O6F2E-2 <A-4A-4B-4>C4"
  225. 2250 B17$="O6F&F2E-2 <A-4A-4B-4>C"
  226. 2260 C17$="O4E-E-E-E-E-E-E-E- A-A-A-A-A-A-A-A-"
  227. 2270 D17$="O4FFFFFFFF CCCCCCCC"
  228. 2280 E17$="O4B-B-B-B-B-B-B-B- E-E-E-E-E-E-E-E-"
  229. 2290 F17$="O2B-B-B-B-B-B-B-B- A-A-A-A-A-A-A-A-"
  230. 2300 J17$="O4E- <A-"
  231. 2310 K17$="O4F C"
  232. 2320 L17$="O3B- >E-"
  233. 2330 A18$="O5F2>D-4C4 <B-4B-4A-4G4"
  234. 2340 B18$="O5F&F2>D-4C4 <B-4B-4A-4G"
  235. 2350 C18$="O4D-D-D-D-D-D-D-D- E-E-E-E-E-E-E-E-"
  236. 2360 D18$="O4FFFFFFFF GGGGGGGG"
  237. 2370 E18$="O4A-A-A-A-A-A-A-A- B-B-B-B-B-B-B-B-"
  238. 2380 F18$="O3D-D-D-D-D-D-D-D- <B-B-B-B-B-B-B-B-"
  239. 2390 J18$="O4D- E-"
  240. 2400 K18$="O4F <G"
  241. 2410 L18$="O3A- B-"
  242. 2420 A19$="O5A-1& A-2R2"
  243. 2430 B19$="O5A-&A-1& A-2R4."
  244. 2440 C19$="O4A-A-A-A-A-A-A-A- A-A-A-A-A-A-A-A-Q8"
  245. 2450 D19$="O5D-D-D-D-D-D-D-D- CCCCQ8C2"
  246. 2460 D19B$="O5D-D-D-D-<B-B-B-B- >CCCCQ8C2"
  247. 2470 E19$="O4E-E-E-E-E-E-E-E- E-E-E-E-E-E-E-E-Q8"
  248. 2480 F19$="O2A-A-A-A-A-A-A-A- A-A-A-A-A-A-A-A-"
  249. 2490 J19$="O3A- A-"
  250. 2500 K19$="O5D- C"
  251. 2510 L19$="O4E- E-"
  252. 2520 C20$="L2O4R4A-. R4E-."
  253. 2530 D20$="L2O4R4C. R4G."
  254. 2540 E20$="L2O4R4E-. <R4B-."
  255. 2550 F20$="O2A-A-A-A-A-A-A-A- >E-E-E-E-E-E-E-E-"
  256. 2560 M20$="@14U0V4L8O4R%L5A-%R5A-%L5A-R2 R%R5G%L5G%R5GR2"
  257. 2570 C21$="O4R4D-. <R4A-."
  258. 2580 D21$="O4R4F. R4C."
  259. 2590 E21$="O3R4A-. >R4E-."
  260. 2600 F21$="O3D-D-D-D-D-D-D-D- <A-A-A-A-A-A-A-A-"
  261. 2610 M21$="O4R%L5F%R5F%L5FR2 R%R5A-%L5A-%R5A-R2"
  262. 2620 M21B$="O4R%L5F%R5F%L5FR2 R%R5A-(]%L5A-%R5A-)3"
  263. 2630 F22$="O2((E-E->E-<E-))"
  264. 2640 G22$="CCCC CCCC"
  265. 2650 H22$="RERE REL8REEEL4"
  266. 2660 I22$="GGGGGGGG GGGGGGGG"
  267. 2670 F23$="O3D-D-D-D-D-D-D-D- CCCCCCCC"
  268. 2680 F24$="O2B-B-B-B-B-B-B-B- A-A-A-A-B-B-B-B-"
  269. 2690 F25$="O2B-B-B-B-B-B-B-B- E->E-<E-E-E->E-<E->E-"
  270. 2700 H25$="RERE REE8E8E8E8"
  271. 2710 PLAY A0$,B0$,C0$,D0$,E0$,F0$,G0$,H0$,I0$
  272. 2720 PLAY A1$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$
  273. 2730 PLAY A2$,A2$,C2$,D2$,E2$,F2$,G1$,H1$,I1$
  274. 2740 PLAY A1$,B1$,C1$,D1$,E1$,F1$,G1$,H1$,I1$
  275. 2750 PLAY A2$,A2$,C2$,D2$,E2$,F2$,G1$,H1$,I1$
  276. 2760 PLAY A1$,B1$,C1$,D1$,E1B$,F1$,G1$,H1$,I1$,,,,M1$
  277. 2770 PLAY A2$,A2$,C2$,D2$,E2B$,F2$,G1$,H1$,I1$,,,,M2$
  278. 2780 PLAY A1$,B1$,C1$,D1$,E1B$,F1$,G1$,H1$,I1$,,,,M1$
  279. 2790 PLAY A3$,A3$,C3$,D3$,E3$,F3$,G3$,H3$,I3$,,,,M3$
  280. 2800 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  281. 2810 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  282. 2820 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  283. 2830 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7$,N7$
  284. 2840 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  285. 2850 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  286. 2860 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  287. 2870 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7B$,N7$
  288. 2880 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  289. 2890 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  290. 2900 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  291. 2910 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7$,N7$
  292. 2920 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  293. 2930 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  294. 2940 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  295. 2950 PLAY A8$,B8$,C7$,D7$,E7$,F7$,G4$,H4$,I1$,J7$,K7$,L7$,M8$,N7$
  296. 2960 PLAY A9$,B9$,C9$,D9$,E9$,F9$,G1$,H1$,I1$,J9$,K9$,L9$
  297. 2970 PLAY A10$,B10$,C10$,D10$,E10$,F10$,G1$,H1$,I1$,J10$,K10$,L10$
  298. 2980 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G1$,H1$,I1$,J11$,K11$,L11$
  299. 2990 PLAY A12$,B12$,C12$,D12$,E12$,F12$,G1$,H1$,I1$,J12$,K12$,L12$
  300. 3000 PLAY A13$,B13$,C13$,D13$,E13$,F13$,G4$,H4$,I1$,J13$,K13$,L13$
  301. 3010 PLAY A14$,B14$,C14$,D14$,E14$,F14$,G1$,H1$,I1$,J14$,K14$,L14$
  302. 3020 PLAY A15$,B15$,C15$,D15$,E15$,F15$,G1$,H1$,I1$,J15$,K15$,L15$
  303. 3030 PLAY A16$,B16$,C16$,D16$,E16$,F16$,G1$,H1$,I1$,J16$,K16$,L16$
  304. 3040 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G1$,H1$,I1$,J17$,K17$,L17$
  305. 3050 PLAY A18$,B18$,C18$,D18$,E18$,F18$,G1$,H1$,I1$,J18$,K18$,L18$
  306. 3060 PLAY A19$,B19$,C19$,D19$,E19$,F19$,G1$,H1$,I1$,J19$,K19$,L19$
  307. 3070 PLAY A20$,B20$,C20$,D20$,E20$,F20$,G1$,H1$,I1$,J20$,K20$,L20$,M20$
  308. 3080 PLAY A21$,B21$,C21$,D21$,E21$,F21$,G1$,H1$,I1$,J21$,K21$,L21$,M21$
  309. 3090 PLAY A20$,B20$,C20$,D20$,E20$,F20$,G1$,H1$,I1$,J20$,K20$,L20$,M20$
  310. 3100 PLAY A21$,B21$,C21$,D21$,E21$,F21$,G4$,H4$,I1$,J21$,K21$,L21$,M21B$
  311. 3110 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  312. 3120 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  313. 3130 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  314. 3140 PLAY A7$,B7$,C7$,D7$,E7$,F7$,G1$,H1$,I1$,J7$,K7$,L7$,M7$,N7$
  315. 3150 PLAY A4$,B4$,C4$,D4$,E4$,F4$,G1$,H1$,I1$,J4$,K4$,L4$,M4$,N4$
  316. 3160 PLAY A5$,B5$,C5$,D5$,E5$,F5$,G1$,H1$,I1$,J5$,K5$,L5$,M5$,N5$
  317. 3170 PLAY A6$,B6$,C6$,D6$,E6$,F6$,G1$,H1$,I1$,J6$,K6$,L6$,M6$,N6$
  318. 3180 PLAY A8$,B8$,C7$,D7$,E7$,F7$,G4$,H4$,I1$,J7$,K7$,L7$,M8$,N7$
  319. 3190 PLAY A9$,B9$,C9$,D9$,E9$,F9$,G1$,H1$,I1$,J9$,K9$,L9$
  320. 3200 PLAY A10$,B10$,C10$,D10$,E10$,F10$,G1$,H1$,I1$,J10$,K10$,L10$
  321. 3210 PLAY A11$,B11$,C11$,D11$,E11$,F11$,G1$,H1$,I1$,J11$,K11$,L11$
  322. 3220 PLAY A12$,B12$,C12$,D12$,E12$,F12$,G1$,H1$,I1$,J12$,K12$,L12$
  323. 3230 PLAY A13$,B13$,C13$,D13$,E13$,F13$,G1$,H1$,I1$,J13$,K13$,L13$
  324. 3240 '
  325. 3250 PLAY A22$,B22$,C22$,D22$,E22$,F22$,G22$,H22$,I22$,J22$,K22$,L22$,M22$
  326. 3260 '
  327. 3270 PLAY A14$,B14$,C14$,D14$,E14$,F14$,G1$,H1$,I1$,J14$,K14$,L14$
  328. 3280 PLAY A15$,B15$,C15$,D15$,E15$,F15$,G1$,H1$,I1$,J15$,K15$,L15$
  329. 3290 PLAY A16$,B16$,C16$,D16$,E16$,F16$,G1$,H1$,I1$,J16$,K16$,L16$
  330. 3300 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G1$,H1$,I1$,J17$,K17$,L17$
  331. 3310 PLAY A18$,B18$,C18$,D18$,E18$,F18$,G1$,H1$,I1$,J18$,K18$,L18$
  332. 3320 PLAY A19$,B19$,C19$,D19$,E19$,F19$,G1$,H1$,I1$,J19$,K19$,L19$
  333. 3330 PLAY A23$,B23$,C23$,D23$,E23$,F23$,G1$,H1$,I1$,J23$,K23$,L23$,M23$
  334. 3340 PLAY A24$,B24$,C24$,D24$,E24$,F24$,G1$,H1$,I1$,J24$,K24$,L24$,M24$
  335. 3350 PLAY A23$,B23$,C23$,D23$,E23$,F23$,G1$,H1$,I1$,J23$,K23$,L23$,M23$
  336. 3360 PLAY A25$,B25$,C25$,D25$,E25$,F25$,G1$,H25$,I1$,J25$,K25$,L25$,M25$
  337. 3370 PLAY A14$,B14$,C14$,D14$,E14$,F14$,G1$,H1$,I1$,J14$,K14$,L14$
  338. 3380 PLAY A15$,B15$,C15$,D15$,E15$,F15$,G1$,H1$,I1$,J15$,K15$,L15$
  339. 3390 PLAY A16$,B16$,C16$,D16$,E16$,F16$,G1$,H1$,I1$,J16$,K16$,L16$
  340. 3400 PLAY A17$,B17$,C17$,D17$,E17$,F17$,G1$,H1$,I1$,J17$,K17$,L17$
  341. 3410 PLAY A18$,B18$,C18$,D18$,E18$,F18$,G1$,H1$,I1$,J18$,K18$,L18$
  342. 3420 PLAY A19$,B19$,C19$,D19B$,E19$,F19$,G1$,H1$,I1$,J19$,K19$,L19$
  343. 10000 END
  344.